home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh45a.d64 / listing 4 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  220b  |  13 lines
  1. 100 POKE 53270,PEEK(53270)  OR 16
  2. 110 PRINT CHR$(147)CHR$(18);
  3. 120 PRINT"[129]";
  4. 130 FOR L=1 TO 22:PRINTCHR$(65);:NEXT
  5. 135 FOR T=1 TO 500:NEXT
  6. 140 PRINT"";
  7. 145 FOR T=1 TO 500:NEXT
  8. 150 PRINT"[144]BITTE EINE TASTE"
  9. 160 GET A$:IF A$="" THEN 160
  10. 170 X=INT(RND(1)*16)
  11. 180 POKE 53282,X
  12. 190 GOTO 160
  13.